home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Development / Feelin021015 / Examples / Rasters.e < prev    next >
Encoding:
Text File  |  2002-10-28  |  2.4 KB  |  93 lines
  1. OPT PREPROCESS
  2.  
  3. MODULE 'feelin','libraries/feelin'
  4.  
  5. PROC main()
  6.    DEF c,w
  7.  
  8.    IF feelinbase := OpenLibrary('feelin.library',FV_VERSION)
  9.       c := ClientObject,
  10.          Child, w := WindowObject, FA_Window_Title,'Feelin : Rasters',
  11.             Child, VGroup, FA_Group_VSpacing, 0,
  12.                Child, HGroup, FA_Group_HSpacing, 0,
  13.                   Child, rast(FI_Highlight),
  14.                   Child, rast(FI_Shine_Highlight),
  15.                   Child, rast(FI_HalfShine_Highlight),
  16.                   Child, rast(FI_Fill_Highlight),
  17.                   Child, rast(FI_HalfShadow_Highlight),
  18.                   Child, rast(FI_Shadow_Highlight),
  19.                   Child, rast(FI_HalfDark_Highlight),
  20.                   Child, rast(FI_Dark_Highlight),
  21.                End,
  22.  
  23.                Child, HGroup, FA_Group_HSpacing, 0,
  24.                   Child, rast(FI_Shine),
  25.                   Child, rast(FI_Shine_HalfShine),
  26.                   Child, rast(FI_Shine_Fill),
  27.                   Child, rast(FI_Shine_HalfShadow),
  28.                   Child, rast(FI_Shine_Shadow),
  29.                   Child, rast(FI_Shine_HalfDark),
  30.                   Child, rast(FI_Shine_Dark),
  31.                End,
  32.  
  33.                Child, HGroup, FA_Group_HSpacing, 0,
  34.                   Child, rast(FI_HalfShine),
  35.                   Child, rast(FI_HalfShine_Fill),
  36.                   Child, rast(FI_HalfShine_HalfShadow),
  37.                   Child, rast(FI_HalfShine_Shadow),
  38.                   Child, rast(FI_HalfShine_HalfDark),
  39.                   Child, rast(FI_HalfShine_Dark),
  40.                End,
  41.  
  42.                Child, HGroup, FA_Group_HSpacing, 0,
  43.                   Child, rast(FI_Fill),
  44.                   Child, rast(FI_Fill_HalfShadow),
  45.                   Child, rast(FI_Fill_Shadow),
  46.                   Child, rast(FI_Fill_HalfDark),
  47.                   Child, rast(FI_Fill_Dark),
  48.                End,
  49.  
  50.                Child, HGroup, FA_Group_HSpacing, 0,
  51.                   Child, rast(FI_HalfShadow),
  52.                   Child, rast(FI_HalfShadow_Shadow),
  53.                   Child, rast(FI_HalfShadow_HalfDark),
  54.                   Child, rast(FI_HalfShadow_Dark),
  55.                End,
  56.  
  57.                Child, HGroup, FA_Group_HSpacing, 0,
  58.                   Child, rast(FI_Shadow),
  59.                   Child, rast(FI_Shadow_HalfDark),
  60.                   Child, rast(FI_Shadow_Dark),
  61.                End,
  62.  
  63.                Child, HGroup, FA_Group_HSpacing, 0,
  64.                   Child, rast(FI_HalfDark),
  65.                   Child, rast(FI_HalfDark_Dark),
  66.                End,
  67.  
  68.                Child, HGroup, FA_Group_HSpacing, 0,
  69.                   Child, rast(FI_Dark),
  70.                End,
  71.             End,
  72.          End,
  73.       End
  74.  
  75.       IF c
  76.          F_DoA(w,FM_Notify,[FA_Window_CloseRequest,TRUE,FV_Notify_Client,2,FM_Client_ReturnID,FV_Client_Quit])
  77.          F_Set(w,FA_Window_Open,TRUE)
  78.  
  79.          F_DoA(c,FM_Client_Run,NIL)
  80.  
  81.          F_DisposeObj(c)
  82.       ENDIF
  83.  
  84.       CloseLibrary(feelinbase)
  85.    ELSE
  86.       WriteF('Unable to open feelin.library\n')
  87.    ENDIF
  88. ENDPROC
  89.  
  90. PROC rast(rast)
  91.    RETURN AreaObject, FA_ChainToCycle,FALSE, FA_Back,rast, FA_MinWidth,4, FA_MinHeight, 4, End
  92. ENDPROC
  93.